home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok78 / wipe / s / cdm < prev    next >
AmigaDOS Script File  |  1993-11-04  |  390b  |  30 lines
  1. .key pfad
  2. ; CD to M2-Amiga environment
  3. ; usage cdm [pfad]
  4.  
  5. if not exists M2:
  6.   Echo "Laufwerk M2: nicht vorhanden !"
  7.   quit
  8. endif
  9.  
  10. stack 30000
  11. path M2: add
  12. setenv AEd.mode Modula
  13.  
  14. cd M2:
  15. if "<pfad>" gt " "
  16.   if exists "<pfad>"
  17.     cd "<pfad>"
  18.   endif
  19. else
  20.   if exists "env:ModulaProject"
  21.     if exists "$ModulaProject"
  22.       cd  "$ModulaProject"
  23.     endif
  24.   endif
  25. endif
  26.  
  27. run >NIL: AmokEd
  28.  
  29.  
  30.